#lang autolisp

(defun foo (x / y)
  (setq y (+ x x))
  (* y y))